home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00702_bt ret.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.7 KB  |  71 lines
  1. on MouseClick
  2.   global gLabel, gLecLabel, gLocLabel, gTrLabel, gChLabel, gThLabel, gPhLabel, gQzLabel, gChapAct, gEtudAct
  3.   curseur(6)
  4.   if gChapAct = "DE" then
  5.     if gEtudAct = "lec" then
  6.       set gLecLabel to "DE:lec:fin"
  7.     else
  8.       set gLocLabel to "DE:OU" && gEtudAct
  9.     end if
  10.   else
  11.     if gChapAct = "SU" then
  12.       set gLocLabel to "SU:OU" && gEtudAct
  13.     else
  14.       if gChapAct = "TR" then
  15.         set gTrLabel to "TR:OU"
  16.       else
  17.         if gChapAct = "TH" then
  18.           set gThLabel to "TH:OU"
  19.           set gLocLabel to "TH:RN2"
  20.         else
  21.           if gChapAct = "CH" then
  22.             set gChLabel to "CH:OU"
  23.           else
  24.             if gChapAct = "PH" then
  25.               set gPhLabel to "PH:OU"
  26.             else
  27.               if gChapAct = "QZ" then
  28.                 set gQzLabel to "QZ:OU"
  29.               else
  30.                 if gChapAct = "CI" then
  31.                   set gLocLabel to "CI:OU"
  32.                 else
  33.                   if gChapAct = "BI" then
  34.                     set gLocLabel to "BI:OU" && gEtudAct
  35.                   else
  36.                     if gChapAct = "MI" then
  37.                       set gLocLabel to "MI:OU" && gEtudAct
  38.                     else
  39.                       nothing()
  40.                     end if
  41.                   end if
  42.                 end if
  43.               end if
  44.             end if
  45.           end if
  46.           nothing()
  47.         end if
  48.       end if
  49.     end if
  50.   end if
  51.   set gLabel to "AC:IN"
  52.   continue()
  53. end
  54.  
  55. on mouseDown
  56.   global gNumSpr, g1erSprNav
  57.   set gNumSpr to g1erSprNav + 5
  58.   gBoutons(appuie, gNumSpr)
  59. end
  60.  
  61. on mouseUp
  62.   global gNumSpr, g1erSprNav, gLocLabel, gLabel
  63.   curseur(1)
  64.   set monNumSpr to g1erSprNav + 5
  65.   if monNumSpr = gNumSpr then
  66.     MouseClick()
  67.   else
  68.     pass()
  69.   end if
  70. end
  71.